home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO088A.dsk / HELLO2.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  46 lines
  1. 500  TEXT : HOME 
  2. 900  ONERR  GOTO 1100
  3. 1000  FOR N = 1 TO 88: READ A$: NEXT 
  4. 1100  POKE 216,0: RESTORE :N = N -1: DIM A$(N):K = 1:D$ =  CHR$(4)
  5. 1150  IF N >36  THEN  VTAB 10: HTAB 2: PRINT "THERE ARE MORE THAN 36 MENU ITEMS":I = 0: FOR J = 1 TO 2000: NEXT : GOTO 2020
  6. 1200 T$ = "YO YO DUCK DIAGNOSTIC PROGRAMS"
  7. 1210 T2$ = "Version 2.2 (ProDOS Based)"
  8. 1250  PRINT "****************************************"
  9. 1300  VTAB 1: HTAB (19 - LEN(T$)/2): PRINT "-  ";T$;"  -": HTAB (19 - LEN(T2$)/2): PRINT T2$
  10. 1350  PRINT 
  11. 1400  FOR I = 1 TO N: READ A$:A$(I) = A$
  12. 1500 K =  ABS(K -1): IF N <10  THEN K = .5
  13. 1550  IF  LEN( STR$(I)) = 1  THEN L = 2: GOTO 1600
  14. 1560 L = 1
  15. 1600  HTAB (20 *K +L): PRINT I;") "; LEFT$(A$,15);
  16. 1700  IF K = 1  THEN  PRINT 
  17. 1800  IF (K = 1)  AND (N <19)  THEN  PRINT 
  18. 1810  IF N <10  THEN CV =  PEEK(37): PRINT : PRINT 
  19. 1900  IF K = 0  THEN CV =  PEEK(37)
  20. 1910  IF CV <21  THEN  NEXT I
  21. 1950  VTAB (CV +3): HTAB 1: PRINT "***(CATALOG=0)**************************"
  22. 1990  ONERR  GOTO 2000
  23. 1999  POKE  -16368,0
  24. 2000  VTAB CV +5: HTAB 9: INPUT "ENTER PROGRAM NUMBER: ";I
  25. 2020  IF I = 0  THEN A$(0) = "CATALOG": POKE 216,0: HOME : PRINT D$;"CAT": END 
  26. 2100  POKE 216,0: IF (I >N)  OR (I <1)  THEN 2000
  27. 2210  ONERR  GOTO 2396
  28. 2310  CALL  -936
  29. 2320  VTAB 10: HTAB 8: PRINT A$(I);" IS LOADING."
  30. 2395  PRINT D$;"RUN";A$(I)
  31. 2396  PRINT D$;"BRUN";A$(I)
  32. 2397  POKE 216,0: END 
  33. 2400  POKE 216,0: CALL  -936: VTAB 10: HTAB 8: PRINT "THE FILE ( ";A$(I);" )": VTAB 14: HTAB 11: PRINT "HAS NOT BEEN FOUND."
  34. 2410  FOR I = 1 TO 2500: NEXT : HOME : PRINT D$;"RUN MENU": NEW 
  35. 10010  DATA    C.D.CONNECTION,MONITOR.TEST  
  36. 10020  DATA   DRIVE.CLEANER
  37. 10040  DATA   D.HI.RES.TEST
  38. 10050  DATA   DISK.TEST2
  39. 10060  REM  DATA INSTRUCTIONS 
  40. 10065  DATA  ENSONIQ.SOUNDS
  41. 10070  DATA   HIRES.TEST,INSTRUCTIONS
  42. 10080  DATA  IW2,JOY.PAD.TEST,KEYBOARD.TEST
  43. 10085  DATA  MEMORY.TEST
  44. 10090  DATA  PRINTER.TEST 
  45. 10100  DATA   SPEAKER.TEST 
  46. 10200  DATA  ZANNY.QUIT